ＦＯＲＭ／ＰＣ ――――――――――――――――――――――――――――――――――――――― Ｉ／Ｏ　１９８１年　５月号掲載 ＰＣ−８００１　３２Ｋ マシン語　０８１００Ｈ−０Ａ００７Ｈ コールド・スタート　０８１００Ｈ ホット・スタート　　０８５０ＥＨ 起動方法 ＭＯＮ Ｌ Ｇ８１００ ――――――――――――――――――――――――――――――――――――――― ＰＣ用Ｔｉｎｙ　ＦＯＲＴＲＡＮ カラーグラフィック命令が加わった整数型コンパイラ ＦＯＲＭ／ＰＣ このたび、PC−8001用のTiny FORTRANを開発したので発表します。 ・――・――――――――――――――― ｜１／プログラムの起動方法 ｜／――――――――――――――――― まず、プログラムをリストからキーイン （または、カセットからロード）してください。 そして、ＰＣのモニタから、 ・―――――――――――――――――・ ｜　*G8100[CR]　　　　　　　　　　　｜ ・―――――――――――――――――・ としてください。 すると画面にタイトルが表示されます。 この状態でコンパイラが起動されています （何だかいつもと同じような画面だな〜・影の声）。 次に、エディタを起動しましょう。 キーボードから、 ・―――――――――――――――――・ ｜　EIDT[CR]　　　　　　　　　　　　｜ ・―――――――――――――――――・ としてください。 おや？[SHIFT] もしていないのに大文字ですよ不思議ですね？ 試しに[SHIFT] を押してキーインしてみてください。 今度は小文字が表示されるでしょう。 ただし、英文字以外はいつもと同じです。 なお、ＦＯＲＴＲＡＮでは すべてのコマンドを必ず大文字で入力してください。 エディタが起動されると“＞”が出力されて 入力待ちとなります。 エディタで使用できるコマンドを表１に示します。 ＬＩＳＴＡ以外はＭＺ版のＦＯＲＭと同じです。 そうです。 このＦＯＲＴＲＡＮはＭＺ版のＦＯＲＭをＰＣに移殖して カラーグラフィックス命令を付け加えたものです。 ですから、 コンパイラのコマンドはＦＯＲＭとまったく同じです。 ただし、『ＢＹＥ』は『ＭＯＮ』となっています。 表２にコンパイラのコマンドを示します。 詳しくは1980年のＩ／Ｏ　６月号を見てください。 それから、『ＲＵＮ』では 本ＦＯＲＴＲＡＮはＢＲＥＡＫ文や ＳＴＯＰ文の実行をスーパーバイズしないので、 モニタからＧコマンドで再起動させてください。 なお、ホット・スタートは＆Ｈ850D、 コールド・スタートは＆Ｈ8100です。 プログラムのメモリ・マップを図１に示します。 オブジェクトのスタートアドレスは&HA000です。 　　　　　　表１　エディタ・コマンド ・――――――――――――――――――――――・ ｜コマンド｜　　　　　機　　　　　能　　　　　｜ ｜――――＋―――――――――――――――――｜ ｜　I　　 ｜テキスト・エンドから挿入　　　　　｜ ｜　L(,n) ｜リストの表示をｎ行目からする。　　｜ ｜　 (,p) ｜　　　　　　　　　　　　　　　　　｜ ｜　& ｜テキストのクリア　　　　　　　　　｜ ｜　! 　　｜コンパイラにジャンプ　　　　　　　｜ ｜　W ｜カセットに出力　　　　　　　　　　｜ ｜　R ｜カセットから入力　　　　　　　　　｜ ｜　B,n ｜ｎ行目の上にインサート　　　　　　｜ ｜　D,n ｜ｎ行目をデリート　　　　　　　　　｜ ・――――――――――――――――――――――・ 　　　　　表２　コンパイラ・モード時のコマンド ・――――――――――――――――――――――・ ｜コマンド｜　　　　　機　　　　　能　　　　　｜ ｜――――＋―――――――――――――――――｜ ｜EDIT　　｜エディタにジャンプ　　　　　　　　｜ ｜――――＋―――――――――――――――――｜ ｜COMPIL　｜ﾃｷｽﾄをﾒﾓﾘ から読んでｺﾝﾊﾟｲﾙ　　　　｜ ｜――――＋―――――――――――――――――｜ ｜EXEC　　｜ﾃｷｽﾄをCMT から読んでｺﾝﾊﾟｲﾙ　注１）｜ ｜――――＋―――――――――――――――――｜ ｜BSAVE 　｜ｵﾌﾞｼﾞｪｸﾄをCMT へSAVE(終了後ﾓﾆﾀ ヘ)｜ ｜――――＋―――――――――――――――――｜ ｜LIST　　｜A:すべてのリストを表示　　　　　　｜ ｜　　　　｜E:ｴﾗｰ のある行を表示　　　　　　　｜ ｜　　　　｜N:ｴﾗｰ の総数とバイト数のみ表示　　｜ ｜　　　　｜P:ﾘｽﾄ をﾌﾟﾘﾝﾀ に表示　注２）　　　｜ ｜　　　　｜C:上記をＯＦＦ　　　　　　　　　　｜ ｜――――＋―――――――――――――――――｜ ｜RUN 　　｜ｵﾌﾞｼﾞｪｸﾄを実行　　　　　　　　　　｜ ｜――――＋―――――――――――――――――｜ ｜MON 　　｜ﾓﾆﾀ ヘｼﾞｬﾝﾌﾟ[CTRL][Ｂ]でﾘﾀｰﾝ　　　｜ ・――――――――――――――――――――――・ 注１）ＥＸＥＣ実行後はソース・エリアをクリアしてください。 　　　ＥＤＩＴ[CR]＆[CR] 注２）プリンタのない場合は[STOP]を押す。 　　　　　図１　メモリ・マップ ・―――――――――――――――――・ ｜　　　　　　　　　　　　　　　　　｜ ｜　　　　・――――――――・　　　｜ ｜　0000　｜　ＲＯＭ　　　　｜　　　｜ ｜　　　　｜　　　　　　　　｜　　　｜ ｜　　　　｜　　　　　　　　｜　　　｜ ｜　8000　｜――――――――｜　　　｜ ｜　8100　｜――――――――｜　　　｜ ｜　　　　｜　　ﾜｰｸ･ｴﾘｱ 　　｜　　　｜ ｜　　　　｜　　　　　　　　｜　　　｜ ｜　84F4　｜――――――――｜　　　｜ ｜　　　　｜■Tiny FORTRAN■｜　　　｜ ｜　　　　｜■■■■■■■■｜　　　｜ ｜　　　　｜■■本■体■■■｜　　　｜ ｜　9C12　｜――――――――｜　　　｜ ｜　　　　｜　ﾘﾝｸ･ﾊﾟｯｹｰｼﾞ 　｜　　　｜ ｜　　　　｜　　　　　　　　｜　　　｜ ｜　　　　｜　↓ｵﾌﾞｼﾞｪｸﾄ展開｜　　　｜ ｜　　　　｜　　　　　　 ｴﾘｱ｜　　　｜ ｜　　　　｜――――――――｜　　　｜ ｜　　　　｜　ﾃｰﾌﾞﾙ 　　　　｜　　　｜ ｜　　　　｜----------------｜　　　｜ ｜　E9FF　｜　↑ｿｰｽ･ｴﾘｱ 　　｜　　　｜ ｜　　　　｜――――――――｜　　　｜ ｜　　　　｜　N-BASIC 　　　｜　　　｜ ｜　FFFF　｜　ﾜｰｸ&V-RAM 　　｜　　　｜ ｜　　　　｜　　　　ｴﾘｱ 　　｜　　　｜ ｜　　　　・――――――――・　　　｜ ・―――――――――――――――――・ 　　　　　　　リスト１　ＦＯＲＭ／ＰＣのリスト出力 ・―――――――――――――――――――――――――――・ ｜　　　　　　　　　　　　　　　　　　　　　　　　　　　｜ ｜0: WIDTH(80,25) 　　　　　　　　　　　　　　　　　　　｜ ｜1: CONSOLE 0,25,0,1 　　　　　　　　　　　　　　　　　｜ ｜2: COLOR7,0,1 　　　　　　　　　　　　　　　　　　　　｜ ｜3: WRITE(12,A1) 　　　　　　　→ＣＲＴのＣＬＥＡＲ　　｜ ｜4:' ｲﾆｼｬﾙ FOR PSET　　　　　　　　　　　　　　　　　　｜ ｜5: STR($9F23)=$C3 　　　　　　　　　　　　　　　　　　｜ ｜6: STR($EB1D)=$2F ＼PRESETを使った後、　　　　　　　　｜ ｜7: STR($EB1E)=$B0 ／または初期状態のときに入れる。　　｜ ｜8: PSET(X,Y)　　　　　　　　　　　　　　　　　　　　　｜ ｜　　　　　：　　　　　　　　　　　　　　　　　　　　　｜ ｜　　　　　　　　　　　　　　　　　　　　　　　　　　　｜ ｜　　　　　：　　　　　　　　　　　　　　　　　　　　　｜ ・―――――――――――――――――――――――――――・ ・――・――――――――――――――― ｜２／　プログラムの起動方法 ｜／――――――――――――――――― 本ＦＯＲＴＲＡＮのステートメントを表３に、関数表４に示します。 ステートメント、関数はＭＺ版ＦＯＲＭ文法を参考にしてください。 ここでは追加、または変更た部分を説明します。 　　　　　　　　表３　ステートメント一覧表 ・――――――――――――――――――――――――――――――――・ ｜ステートメント｜　　　　機　　能　（詳しくはＦＯＲＭを参照）　　｜ ｜―――――――＋――――――――――――――――――――――――｜ ｜GOTOn 　　　　｜行番号ｎにジャンプ　　　　　　　　　　　　　　　｜ ｜IF(式)x,y,z 　｜式<0ならｘ、０ならｙ、>0ならｚにJUMP　　　　　　｜ ｜DOx変数=n,m,l ｜ループの指定ｘは端末文の行番、　　　　　　　　　｜ ｜　　　　　　　｜ｎは初期値、ｍはは終値、ｌは増分　　　　　　　　｜ ｜CONTINUE　　　｜非実行文、DOの端末に使用　　　　　　　　　　　　｜ ｜CALLn 　　　　｜行番ｎからの副プログラムをコール　　　　　　　　｜ ｜RETURN　　　　｜副プログラムよりリターン　　　　　　　　　　　　｜ ｜PAUSEn　　　　｜一時停止。[SHIFT] でｽﾄｯﾌﾟ 。他のキーで続行　　　｜ ｜STOPn 　　　　｜プログラムの停止　　　　　　　　　　　　　　　　｜ ｜BREAK 　　　　｜[STOP]キーのチェック　　　　　　　　　　　　　　｜ ｜USR(アドレス) ｜アドレスからの機械語をコール　　　　　　　　　　｜ ｜　　　　　　　｜（BC＝9FE2、HL＝9FE6、DE＝9FE4、AF＝9FE0）　　　｜ ｜END 　　　　　｜プログラムの終了（必ず入れる）　　　　　　　　　｜ ｜PSET(x,y) 　　｜(ｘ，ｙ)にドットをセット（０≦ｘ≦159 　　　　　｜ ｜PTESET(x,y) 　｜(ｘ，ｙ)にドットをリ七ット　０≦ｙ≦99）　　　　｜ ｜READ(変数,型) ｜数値をキーボードより入力　　　　　　　　　　　　｜ ｜WRITE(式,型)　｜数値を出力　　　　　　　　　　　　　　　　　　　｜ ｜WIDTH(a,b)　　｜ａは横、ｂは縦　　　　　　　　　　　　　　　　　｜ ｜CONSOLE 　　　｜Ｎ−ＢＡＳＩＣと同じ　　　　　　　　　　　　　　｜ ｜OUT(n)　　　　｜機械語を書き込む　　　　　　　　　　　　　　　　｜ ｜STR(n)　　　　｜メモリから機械語を読み込む　　　　　　　　　　　｜ ・――――――――――――――――――――――――――――――――・ 　　　　　　　　表４　関数一覧表 ・―――――――――――――――――――――――――――・ ｜関数｜　　　機　　能　　　｜　　　　使　用　例　　　　｜ ｜――＋――――――――――＋―――――――――――――｜ ｜LOD ｜メモリからロード　　｜A=LOD($F300)　　　　　　　｜ ｜INP ｜I／Oからインプット　｜A=INP(32) 　　　　　　　　｜ ｜MOD ｜余りを与える。　　　｜R=MOD(3,2)　３÷２の余り　｜ ｜RND ｜乱数を与える。　　　｜X=RND(5) 　０〜４の乱数　｜ ｜ABS ｜絶対値を与える。　　｜S=ABS(-1) 　　　　　　　　｜ ｜GET ｜ﾘｱﾙ・ﾀｲﾑｷｰｲﾝ　　　　｜K=GET 　　　　　　　　　　｜ ｜LOW ｜下位８ﾋﾞｯﾄを与える。｜L=LOW($1234)　　　　　　　｜ ・―――――――――――――――――――――――――――・ ■ステートメント (１)CONSOLE a,b,c,d　Ｎ−ＢＡＳＩＣと同様です。ａ 　ａはスクロールの開始行， 　ｂはスクロール幅， 　ｃはファンクション・キーの表のon、off （１でon、０でoff ）、 　ｄは白黒／カラーの切り替え（１でカラー、０で白黒）で、 　省略はできません． (２)ＣＯＬＯＲ　ａ，ｂ，Ｃ 　ａは色（０≦ａ≦７）， 　ｂはヌル・キャラクタ， 　ｃはグラフィック・スイッチ 　（１でon，０でoff ）です。 (３)ＰＳＥＴ（Ｘ，Ｙ） 　Ｘ，Ｙは画面上の座標（０≦Ｘ≦ 159，０≦Ｙ≦99）ですが、 　色の指定はできないのでＣＯＬＯＲ文とペアで使ってください。 (４)ＰＲＥＳＥＴ（Ｘ，Ｙ） 　ＰＳＥＴと同様でＸ，Ｙの示す座標のドットを消します。 (５)ＷＩＤＴＨ（ａ，ｂ） 　カッコの必要であることに注意してください。 　ａは画面の横幅（36、40、72または80）， 　ｂは縦幅（20または25） (６)ＯＵＴ（ａ）＝ｂ 　ＭＺ版ＦＯＲＭのステートメント『ＩＯＣ』と同等です。 　ａは出力ポートのアドレス， 　ｂは出力するデータです。 (７)ＳＴＲ（ａ）＝ｂ 　ＭＺ版ＦＯＲＭのステートメントのＭＥＭと同等です。 　ａはメモリのアドレス， 　ｂは書き込むデータです。 ■関数 (１)ＩＮＰ（ａ） 　ＦＯＲＭの関数ＩＯＣと同等です。 　ａは入力ポートのアドレスです。 (２)ＬＯＤ（ａ） 　ＦＯＲＭの関数ＭＥＭと同等です。 　ａはメモリのアドレスです。 　以上が追加、変更したところです。 　移殖のときに注意してください。 ・――・――――――――――――――― ｜３／　　　　最　後　に ｜／――――――――――――――――― ＰＳＥＴ、ＰＲＥＳＥＴのスピードは リスト１のようにすれば少しは速くなります。 バグやわかりにくいところがありましたら、 編集部経由でお知らせください。 最後にこのプログラムを開発するにあたり 協力してくださいました藤田直則氏、 およびＦＯＲＭのアセンブル・リストを発表した ハドソン・ソフトに感謝します。 【】参考文献 １）ハドソン・ソフト：“ＦＯＲＭ”、Ｉ／Ｏ、’80年５〜９月号